home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / windows.arc / GROWDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-02-23  |  500 b   |  24 lines
  1. {$I VAR.INC}
  2. {$I WINDMNGR.INC}
  3. {$I GROWWIN.INC}
  4. var ch:char;
  5.  
  6. Begin
  7.      Grow_Window(5,5,40,20,11,0,2);
  8.      repeat until keypressed;
  9.      read(kbd,ch);
  10.      Grow_Window(20,2,50,20,12,0,3);
  11.      repeat until keypressed;
  12.      read(kbd,ch);
  13.      grow_window(10,10,50,23,2,0,3);
  14.      repeat until keypressed;
  15.      read(kbd,ch);
  16.      remove(1);
  17.      repeat until keypressed;
  18.      read(kbd,ch);
  19.      remove(1);
  20.      repeat until keypressed;
  21.      read(kbd,ch);
  22.      remove(1);
  23. end.
  24.